home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / office / labelr / labels.exe / PRINT_HP.TXT < prev    next >
Encoding:
Text File  |  1993-08-16  |  10.1 KB  |  229 lines
  1. \CALL SHEETS\CALLM MAKENM\IF B=14624\JUMP NOTOPEN\ENDIF
  2. \X PAGELOOP\CALLM RDSMLFON\LOC 520,168\MOVE #205+1-#204 TO #206\CONVERT #206\+
  3. \TEXT PLANE=1011\IF SRL_ACTV='Y'\DISP #206[4,3],' OF ',#207[4,3]\ELSE\DISP #207[4,3],' PAGES.'\ENDIF
  4. \X LABELLOOP\IF B=14624\JUMP EXITWRTPAGE\ENDIF\CALLM PRINT_SRL\CALLM UPSRL\CALL SET_CURSOR
  5. \CALL PRINTLABELS\IF CURR_LBL<LABSPERPG\JUMP LABELLOOP\ENDIF
  6. \IF LABTYPE<>'3.5"'\JUMP LABOUT\ENDIF
  7. \X BONUSLOOP\CALL SET_CURSOR\CALL PR_BONUS\IF CURR_LBL<21\JUMP BONUSLOOP\ENDIF
  8. \X LABOUT\CALL WRT_SRL_AUX
  9. \IF SRL_ACTV='Y'\MOVE 0 TO CURR_LBL\SUB 1 FROM #204\IF #204>0\PRIN [12],\JUMP PAGELOOP\ENDIF
  10. \CALLM DONE_NOISE\JUMP EXITPAGE\X EXITWRTPAGE\CALL WRT_SRL_AUX ;IN CASE U PRESS SPACEBAR
  11. \X EXITPAGE\PRIN [12],
  12. \X EXITHERE\PRIN [27],'E', ;RESET
  13. \IF PRT_LOC='3'\CLOSE LPT3:\ELSE\IF PRT_LOC='2'\CLOSE LPT2:\ELSE\CLOSE LPT1:\ENDIF
  14. \X NOTOPEN\READ K:081118PW.FON\MOVE 11 TO FNTY\READ K:LABINTRO.TXT ;STRT OVER!
  15. \X SET_CURSOR\TEXT PLANE=1101\IF #760<>'3.5"'\JUMP LOC_525S\ENDIF\PRIN [27],'&a',
  16. \IF CURR_LBL<1\CALL ACTV_MSG\PRIN '406V',[27],'&a',20,'H',
  17. \LOC 520,156\DISP '9 OF 9 '\ELSE\LOC 520,156\IF CURR_LBL<2\PRIN '406V',[27],'&a',1992,'H',
  18. \DISP '8 OF 9 '\ELSE\IF CURR_LBL<3\PRIN '406V',[27],'&a',3964,'H',
  19. \DISP '7 OF 9 '\ELSE\IF CURR_LBL<4\PRIN '2580V',[27],'&a',20,'H',
  20. \DISP '6 OF 9 '\ELSE\IF CURR_LBL<5\PRIN '2580V',[27],'&a',1992,'H',
  21. \DISP '5 OF 9 '\ELSE\IF CURR_LBL<6\PRIN '2580V',[27],'&a',3964,'H',
  22. \DISP '4 OF 9 '\ELSE\IF CURR_LBL<7\PRIN '4742V',[27],'&a',20,'H',
  23. \DISP '3 OF 9 '\ELSE\IF CURR_LBL<8\PRIN '4742V',[27],'&a',1992,'H',
  24. \DISP '2 OF 9 '\ELSE\IF CURR_LBL<9\PRIN '4742V',[27],'&a',3964,'H',
  25. \DISP '1 OF 9  '\ELSE\IF CURR_LBL<10\PRIN '6795V',[27],'&a',20,'H',
  26. \DISP ' BONUS  '\ELSE\IF CURR_LBL<11\PRIN '7147V',[27],'&a',20,'H',
  27. \ELSE\IF CURR_LBL<12\PRIN '6795V',[27],'&a',965,'H',
  28. \ELSE\IF CURR_LBL<13\PRIN '7147V',[27],'&a',965,'H',
  29. \ELSE\IF CURR_LBL<14\PRIN '6795V',[27],'&a',2100,'H',
  30. \ELSE\IF CURR_LBL<15\PRIN '7147V',[27],'&a',2100,'H',
  31. \ELSE\IF CURR_LBL<16\PRIN '6795V',[27],'&a',2955,'H',
  32. \ELSE\IF CURR_LBL<17\PRIN '7147V',[27],'&a',2955,'H',
  33. \ELSE\IF CURR_LBL<18\PRIN '6795V',[27],'&a',4000,'H',
  34. \ELSE\IF CURR_LBL<19\PRIN '7147V',[27],'&a',4000,'H',
  35. \ELSE\IF CURR_LBL<20\PRIN '6795V',[27],'&a',4945,'H',
  36. \ELSE\IF CURR_LBL<21\PRIN '7147V',[27],'&a',4945,'H',
  37. \ENDIF\ADD 1 TO CURR_LBL\RETURN
  38. \X LOC_525S\PRIN [27],'&a',\IF CURR_LBL<1\CALL ACTV_MSG
  39. \PRIN '744V',[27],'&a',0,'H',
  40. \LOC 520,156\DISP '12'\ELSE\LOC 520,156\IF CURR_LBL<2\PRIN '744V',[27],'&a',3000,'H',
  41. \DISP '11'\ELSE\IF CURR_LBL<3\PRIN '1830V',[27],'&a',0,'H',
  42. \DISP '10'\ELSE\IF CURR_LBL<4\PRIN '1830V',[27],'&a',3000,'H',
  43. \DISP '9'\ELSE\IF CURR_LBL<5\PRIN '2916V',[27],'&a',0,'H',
  44. \DISP '8'\ELSE\IF CURR_LBL<6\PRIN '2916V',[27],'&a',3000,'H',
  45. \DISP '7'\ELSE\IF CURR_LBL<7\PRIN '4000V',[27],'&a',0,'H',
  46. \DISP '6'\ELSE\IF CURR_LBL<8\PRIN '4000V',[27],'&a',3000,'H',
  47. \DISP '5'\ELSE\IF CURR_LBL<9\PRIN '5084V',[27],'&a',0,'H',
  48. \DISP '4'\ELSE\IF CURR_LBL<10\PRIN '5084V',[27],'&a',3000,'H',
  49. \DISP '3'\ELSE\IF CURR_LBL<11\PRIN '6168V',[27],'&a',0,'H',
  50. \DISP '2'\ELSE\IF CURR_LBL<12\PRIN '6168V',[27],'&a',3000,'H',
  51. \DISP '1'\ENDIF\DISP ' OF 12 '\ADD 1 TO CURR_LBL\RETURN
  52. \X SHEETS\BLA #320,0,639,#322\LOC #320,4\WID #321 DOT\ON KEY 14624 JUMP NOTOPEN\TEXT PLANE=1011
  53. Number of SHEETS to print (9 labels per sheet, default is 1 sheet, maximum is 99)?
  54. (Press <SPACE BAR> now to return to opening menu.)
  55. \"
  56. \"
  57. \"
  58. \"
  59. \"
  60. \"
  61. \"
  62. BE SURE LABEL FORMS ARE CORRECTLY PLACED IN YOUR PRINTER, PROBABLY LABELS DOWN AND, FOR 3.5" LABELS, BONUS FORMS "OUT".  TRY A SHEET OF PLAIN PAPER IF YOU ARE UNSURE OF THE PROPER DIRECTION FOR THE FORMS.
  63. \CURS CRSR_XLOC,5,80,5\QUEST #204\IF #204=0\MOVE 1 TO #204\ENDIF
  64. \IF #204<1 OR #204>99\BEEP 44,99\JUMP SHEETS\ENDIF\MOVE #204 TO #205
  65. \MOVE #205 TO #207\CONVERT #207\ON KEY 14624
  66. \CALL DISP_SCRN\BLA #320,0,639,#322\MOVE 0 TO CURR_LBL
  67. \MOVE 150 TO RESOLUTION
  68. \X STARTUP\IF PRT_LOC='3'\OPEN LPT3: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\+
  69. \IF PRT_LOC='2'\OPEN LPT2: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\+
  70. \IF PRT_LOC='1'\OPEN LPT1: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\JUMP PTR_ERROR
  71. \X OPN_GOOD\IF PRT_LOC='3'\OPEN LPT3:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\+
  72. \IF PRT_LOC='2'\OPEN LPT2:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\+
  73. \IF PRT_LOC='1'\OPEN LPT1:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\JUMP PTR_ERROR
  74. \X PTR_GOOD\IF B=14624\JUMP EXITWRTPAGE\ENDIF
  75. \IF #550<>' '\MOVE #550 TO #200\CALL PARSE_ESCODES\IF #551<>' '\MOVE #551 TO #200\CALL PARSE_ESCODES
  76. \IF #552<>' '\MOVE #552 TO #200\CALL PARSE_ESCODES\IF #553<>' '\MOVE #553 TO #200\CALL PARSE_ESCODES
  77. \ELSE\ELSE\ELSE\ELSE\PRIN [27],'E',
  78. \PRIN [27],'&l2A', ;pg sz
  79. \PRIN [27],,'9', ;clr hrztl margins
  80. \PRIN [27],'&l6D', ;lpi=6
  81. \PRIN [27],'&l66P', ;lns=66
  82. \PRIN [27],'&l0L', ;DISABLE perf skip
  83. \PRIN [27],'&l0E', ;top margin=0
  84. \ENDIF
  85. \IF SRL_ACTV='Y'\MOVE 1 TO Z\ELSE\MOVE #204 TO Z\ENDIF
  86. \PRIN [27],'&l',Z,'X'  ;# copies=Z
  87. \PRIN [27],'*t',RESOLUTION,'R',
  88. \LOC 386,168\TEXT PLANE=1011\DISP "  PRINTING SHEET #:               "
  89. \RETURN
  90. \X PRINTLABELS\PRIN [27],'*r1A',
  91. \MOVE PRT_LOC TO #4406\CONVERT #4406
  92. \IF LABTYPE='3.5"'
  93. \BUILD #4404="HPRASTER.EXE W=0,5,366,393 P=",#4406
  94. \EXECUTE >(#4404)
  95. \PRIN [27],'*rB',
  96. \MOVE (#89+#86+#85) TO #4404\CONVERT #4404
  97. \MOVE 367-BRDRWIDTH-8 TO #4403\CONVERT #4403
  98. \MOVE #89 TO #4402\CONVERT #4402
  99. \MOVE BRDRWIDTH+8 TO #4401\CONVERT #4401
  100. \BUILD #4404="HPRASTER.EXE W=",#4401,",",#4402,",",#4403,",",#4404," A=1,1,-1,-1 P=",#4406
  101. \CALL SET_2CURSOR\PRIN [27],'*r1A',
  102. \ELSE
  103. \BUILD #4404="HPRASTER.EXE W=0,190,566,393 P=",#4406
  104. \ENDIF
  105. \EXECUTE >(#4404)
  106. \PRIN [27],'*rB',
  107. \RETURN
  108. \X PR_BONUS\READ K:162018PW.FON\MOVE 20 TO FNTY
  109. \BLA 400,320,639,390\MOVE CURR_LBL TO T\DIVIDE T BY 2 REM T
  110. \IF T=1\MOVE 16 TO T\ENDIF\TEXT PLANE=1110
  111. \LOC 412,325+T\MOVE CURR_LBL-LABSPERPG+159 TO G\DISP #G[1,12]
  112. \LOC 412,353+T\DISP #G[13,24]
  113. \PRIN [27],'*r1A',
  114. \BUILD #4404="HPRASTER.EXE W=400,322,566,388 P=",#4406
  115. \EXECUTE >(#4404)
  116. \PRIN [27],'*rB',
  117. \RETURN
  118. \X DISP_SCRN\IF LABTYPE='3.5"'
  119. \BLA #320,0,639,#322\ELSE\BLA 0,0,639,#322\ENDIF\RETURN
  120. \X WORKINGNOTE\TEXT PLANE=1011\IF LABTYPE='3.5"'\LOC 450,230\LINE 437,216,580,298,STD_LNCLR,B
  121. \ELSE\LOC 132,50\LINE 119,36,262,118,STD_LNCLR,B\ENDIF\WID 140 DOT C
  122. HARD AT WORK!
  123. \"
  124. \TEXT PLANE=1101
  125. PRESS <SPACE BAR> TO INTERUPT THIS STEP...
  126. \RETURN
  127. \X PTR_ERROR\BEEP 44,99\SAVE SCREEN\BLA 0,0,639,412
  128. \LOC 376,0\WID 264 DOT\TEXT PLANE=0100
  129. Your printer returned the status value shown below.  A 1 in bits 0, 3, 5 or 6 or a 0 in bits 4 or 7 is an error.  Program requires HPLASERJET with 512K RAM, enough for 150 D.P.I. full-page graphics.
  130. \LOC 396,96\WID 260 DOT
  131.       PRINTER STATUS BYTE:
  132.   7   6   5   4   3   2   1   0
  133. \"
  134. Values should be: (x=don't care)
  135.    1   0   0   1   0   x   x   0
  136. \"
  137.             values are:
  138. \MOVE 416 TO W\MOVE 128 TO V\X PR_ERR\LOC W,176\ADD 24 TO W
  139. \IF A>=V\DISP '1'\SUB V FROM A\ELSE\DISP '0'\ENDIF\DIVIDE V BY 2\IF V>0\JUMP PR_ERR\ENDIF
  140. \LOC 386,200\WID 230 DOT\TEXT PLANE=1111
  141. BIT #      MEANING
  142. \TEXT PLANE=1011
  143. \"
  144.   7
  145.   6
  146.   5
  147.   4
  148.   3
  149.   2
  150.   1
  151.   0
  152. \LOC 424,222\WID 230 DOT
  153. 0=Printer Busy.
  154. 1=Acknowledgement from Printer.
  155. 1=Printer Out of Paper.
  156. 0=Printer Offline
  157. 1=Transfer (I/O) Error.
  158.   not used.
  159.   not used.
  160. 1=Time-out Error.
  161. \LOC 426,330\WID 150 DOT C\LINE 421,326,571,378,12,B\TEXT PLANE=1101
  162. Press <RETURN> to try again...
  163. Press <F10> to go to the opening menu...
  164. \ON KEY F10 JUMP RD_INTRO
  165. \ROUND -1 SPEED 84\MARQ 412,174,595,190,1\RESTORE SCREEN
  166. \ON KEY F10\JUMP OPN_GOOD
  167. \X WRT_SRL_AUX\IF SRL_ACTV='Y' AND SRL_TEMPRUN<>'Y'\BUILD #10000="LABEL FILE LAST WRITTEN: ",TIME&DATE\+
  168. \ON ERROR JUMP BADOSOBAD\WRITE (LABELNM)\CLEAR ON ERRORS\ENDIF\RETURN
  169. \X BADOSOBAD\BEEP 122,77\LOC #320,0\BLA #320,0,639,#322\WID #321 DOT C\TEXT PLANE=0100
  170. \"
  171. ERROR!!
  172. \"
  173. Unable to write label file for serialization number update!  Run should be stopped until the problem has been rectified.
  174. \"
  175. Press any key to return to the opening menu...
  176. \WAIT NOW -1\JUMP EXITPAGE
  177. \X PARSE_ESCODES\MOVE 1 TO Z
  178. \LENGTH #200\MOVE A TO Q\MOVE 1 TO V\X PARLOOP
  179. \MOVE #200[V,1] TO #201\IF #201='['\IF V<Q\ADD 1 TO V\MOVE #200[V,1] TO #202\IF #202='['\ELSE\CALL FINDNMBR\IF V<=Q AND Z=1\JUMP PARLOOP\ELSE\JUMP CHKOUT44\ENDIF
  180. \PRIN #201,
  181. \ADD 1 TO V\IF V<=Q\JUMP PARLOOP\ENDIF
  182. \X CHKOUT44\RETURN
  183. \X FINDNMBR\MOVE V TO U
  184. \X FNMBR2\MOVE #200[U,1] TO #204\IF #204=']'\ELSE\ADD 1 TO U\IF U<=Q\JUMP FNMBR2\ENDIF\IF U>V
  185. \MOVE #200[V,U-V] TO #203\LENGTH #203\MOVE A TO G
  186. \CALL CHK_NMBR\IF G=0\CONVERT #203\IF #203>255 OR #203<0\MOVE U TO Z\ELSE
  187. \PRIN [#203],
  188. \ELSE\MOVE U TO Z\ENDIF\MOVE U TO V\ADD 1 TO V
  189. \X FNMBR4\IF Z>1\LOC #320,420\TEXT PLANE=0100
  190. ERROR! Values in brackets not numeric and >-1 and <256 or brackets not "balanced".  This error should have been caught at input time!  Please contact Russell Hoffman!
  191. \ENDIF\RETURN
  192. \X CHK_NMBR\MOVE #203[G,1] TO #204\IF #204>='0' AND #204<='9'\SUB 1 FROM G\IF G>0\JUMP CHK_NMBR\ENDIF\RETURN
  193. \X RD_INTRO\READ LABINTRO.TXT
  194. \X ACTV_MSG\CALL WORKINGNOTE\TEXT PLANE=1101
  195. \LOC 386,156\WID 639-(376+32) DOT\DISP "  PRINTING LABEL #:               "
  196. \LOC 392,10\WID 639-(376+32) DOT C
  197. LASER IMAGE NOW BEING CREATED FOR EACH DISKETTE LABEL AT 150 DOTS PER INCH.
  198. \IF LABTYPE='3.5"'
  199. BONUS LABELS ALSO BEING FORMATTED.
  200. \ELSE
  201. \"
  202. \"
  203. \ENDIF
  204. \"
  205. (Thanks to Daan Van Rooyen for the sound effects!)
  206. \DOT 561,77,1\DOT 564,77,1
  207. \"
  208. \"
  209. \"
  210. \"
  211. \"
  212. \RETURN
  213. \X SET_2CURSOR\PRIN [27],'&a',
  214. \MOVE 443+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
  215. \IF CURR_LBL=1\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
  216. \ELSE\IF CURR_LBL=2\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
  217. \ELSE\IF CURR_LBL=3\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
  218. \ENDIF
  219. \MOVE 2620+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
  220. \IF CURR_LBL=4\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
  221. \ELSE\IF CURR_LBL=5\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
  222. \ELSE\IF CURR_LBL=6\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
  223. \ENDIF
  224. \MOVE 4780+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
  225. \IF CURR_LBL=7\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
  226. \ELSE\IF CURR_LBL=8\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
  227. \ELSE\IF CURR_LBL=9\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
  228. \ENDIF\RETURN
  229.